-- card: 83623 from stack: in -- bmap block id: 84953 -- flags: 4000 -- background id: 4754 -- name: School Setup ----- HyperTalk script ----- on rollingDemo answer "School Setup demo will take approx. 5 min." with "Cancel" or "OK" if it is "Cancel" then exit rollingDemo set the cursor to none lock screen go to card "Rolling Demo Instructions" of this background unlock screen with dissolve fast repeat until the mouseClick end repeat set the cursor to hand autoMouse moveMouse,420,60 click at the loc of bg button id 7 show card picture unlock screen with dissolve wait 1 second show card field "Introduction" wait 2 seconds lock screen show card button "Attendance" show card field "Attendance" unlock screen with dissolve wait 1 second lock screen show card button "Scheduling" show card field "Scheduling" unlock screen with dissolve wait 1 second lock screen show card button "Report Cards" show card field "Report Cards" unlock screen with dissolve wait 1 second lock screen show card button "Student Details" show card field "Student Details" unlock screen with dissolve wait 3 seconds show card field "Introduction 2" wait until the mouseClick lock screen hide card picture hide card field "Introduction" hide card button "Attendance" hide card field "Attendance" hide card button "Scheduling" hide card field "Scheduling" hide card button "Report Cards" hide card field "Report Cards" hide card button "Student Details" hide card field "Student Details" hide card field "Introduction 2" unlock screen with dissolve set the cursor to hand autoMouse menuMouse,4,1 -- Passwords… if the result is "Item not found" then -- test for XCMD bug send "doMenu Passwords…" to background "School Setup" end if showInfo "Passwords",true wait 30 set the cursor to hand autoMouse moveMouse,60,130 tabKey type "CHANCERY" select empty wait 30 autoMouse moveMouse,436,126 click at the loc of card button "AT Edit" wait 30 autoMouse moveMouse,436,145 click at the loc of card button "CD Edit" wait 30 autoMouse moveMouse,398,183 click at the loc of card button "RC View" wait 30 autoMouse moveMouse,436,202 click at the loc of card button "RM Edit" wait 30 autoMouse moveMouse,436,221 click at the loc of card button "SC Edit" wait 2 seconds autoMouse moveMouse,122,309 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,4,9 -- Daily Attendance Codes… wait 3 seconds showInfo "Daily Attendance Codes",true wait 30 set the cursor to hand autoMouse moveMouse,35,290 tabKey type "Doctors Excuse" wait 1 second tabkey type "D" wait 1 second tabkey type "1.000" wait 1 second tabkey type "0.000" wait 1 second tabkey type "1.000" select empty wait 1 second autoMouse moveMouse,168,318 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,4,10 -- Period Attendance Codes… showInfo "Period Attendance Codes",true wait 30 set the cursor to hand autoMouse moveMouse,35,227 tabKey type "Doctors Excuse" wait 1 second tabkey type "D" wait 1 second tabkey type "1.000" wait 1 second tabkey type "0.000" wait 1 second tabkey type "1.000" select empty wait 2 seconds autoMouse moveMouse,168,318 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,5,1 -- Timetable Setup… if the result is "Item not found" then -- test for XCMD bug send "doMenu Timetable Setup…" to background "School Setup" end if showInfo "Timetable Setup 1",true showInfo "Timetable Setup 2",true wait 2 seconds set the cursor to hand autoMouse moveMouse,52,80 click at the loc of card button "Relative Days" showInfo "Timetable Setup 3",true wait 2 seconds set the cursor to hand autoMouse moveMouse,170,313 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,5,10 -- Classroom Setup… showInfo "Classroom Setup",true wait 1 second set the cursor to hand tabKey type "222" wait 30 tabKey type "4126" wait 30 tabKey type "30" wait 30 autoMouse moveMouse,74,220 select line 1 of card field "Available Types" put "Classroom" into card field "Room Type" wait 30 autoMouse moveMouse,287,99 click at the loc of card button id 9 wait 2 seconds autoMouse moveMouse,160,307 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,6,4 -- Lunch Status… showInfo "Lunch Status",true wait 1 second set the cursor to hand autoMouse moveMouse,152,209 tabKey type "Low Cholesterol" wait 1 second autoMouse moveMouse,254,292 click at the loc of card button "Change Title…" wait 1 second type "Bus Status" wait 2 seconds autoMouse moveMouse,170,208 click at the loc of card button "OK" wait 2 seconds autoMouse moveMouse,160,292 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,6,5 -- Infraction Codes… wait 1 second autoMouse moveMouse,152,209 tabKey type "Selling of illegal drugs" select empty showInfo "Infractions",true wait 2 seconds set the cursor to hand autoMouse moveMouse,180,292 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,6,6 -- Student Numbers… wait 1 second type "1000" select empty showInfo "Student Numbers",true wait 2 seconds set the cursor to hand autoMouse moveMouse,155,276 click at the loc of card button "OK" wait 1 second autoMouse menuMouse,6,9 -- User Definable Fields… showInfo "User Definable Fields",true wait 1 second set the cursor to hand select line 1 of card field "User Fields 1" type "S.A.T. scores" wait 1 second select line 2 of card field "User Fields 1" type "IQ score" wait 1 second autoMouse moveMouse,224,166 click at the loc of card button 8 wait 1 second select line 3 of card field "User Fields 1" type "Combination Number" wait 1 second select line 4 of card field "User Fields 1" type "Licence Plate" wait 1 second select line 5 of card field "User Fields 1" type "Volunteer Work" wait 2 seconds autoMouse moveMouse,132,300 click at the loc of card button "OK" autoMouse menuMouse,1,1 -- About if the result is "Item not found" then -- test for XCMD bug send "doMenu About" to background "School Setup" end if end rollingDemo on showInfo fieldName,cardPict lock screen set the cursor to none restoreMenuBar false grayPicture cardPict installMenuBar 1160,1161,1162,1163,1164,1165 show card field fieldName unlock screen with dissolve put the secs into temp repeat until the mouseClick if (the secs - temp) > 30 then show card field "Continue" end repeat lock screen hide card field fieldName hide card field "Continue" pop card unlock screen with dissolve if the optionKey is down then exit to HyperCard end showInfo -- part contents for background part 5 ----- text ----- School Setup -- part contents for background part 6 ----- text ----- School Setup allows you to enter variables that are particular to your school, allowing you to customize the software to meet your school’s individual needs. The user has the ability to define his/her own: • system passwords • timetable structure • scheduler terms • reporting terms • discipline codes • daily attendance codes • period/class attendance codes • 25 open fields for the user to define • classroom setup ( a blueprint of your school) • and many more! The data entered in School Setup will be used in every other Mac School program. In fact, it becomes part of the framework of subsequent modules enabling you to simply make selections rather than having to reenter the data.